home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 4 / Eagles_Nest_Mac_Collection_Disc_4.TOAST / DTP (PM & Quark) / XP InPosition K / [] XT Inposition K.rsrc / STR#_31001.txt < prev    next >
Text File  |  1993-04-11  |  440b  |  16 lines
  1. /setclp known{/setclp{np 0 0 m
  2.  ct1 98 get 0 ne{ct1 0 ct1 98 get getinterval cvx exec}if
  3.  ct2 ctz get 256 mul ct2 ctz 1 add get add dup 0 ne
  4.  {dup ct2 0 3 -1 roll getinterval cvx exec}if pop cps np mif}bind store}if
  5. end}if
  6.  
  7. /kp known{/kp{ct1 0 2 index length 2 index 98 2 index 
  8.  put getinterval copy cvx exec mtx1 currentmatrix 
  9.  pop cps np mif}bind store}if
  10.  
  11. dup dup dup begin
  12. /ct1 known{/ct1 99 string store ct1 98 0 put}if
  13.  
  14. where {pop
  15.  
  16.